home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / adl.arc / DL-SRCE.CMD < prev   
OS/2 REXX Batch file  |  1987-07-06  |  1KB  |  62 lines
  1. GOSU DL
  2. ASSI S1 S2
  3. GOSU DL
  4. ASSI S1 S3
  5. GOSU DL
  6. ASSI S1 S4
  7. GOSU DL
  8. ASSI S1 S5
  9. GOSU DL
  10. ASSI S1 S6
  11. GOSU DL
  12. ASSI S1 S7
  13. GOSU DL
  14. ASSI S1 S8
  15. GOSU DL
  16. ASSI S1 S9
  17. GOSU DL
  18. MESS "^M^J"
  19. TRAN ".M 000!"
  20. WAIT "<H>elp:" 240
  21. FIND S0 "Y"
  22. IF FOUN
  23.   EXEC "OFF"
  24. ENDI
  25. EXEC "helpsig"
  26.  
  27. DL:
  28. FIND S1 "XXX"
  29. IF FOUN
  30.   MESS "^M^J"
  31.   TRAN ".M 000!"
  32.   WAIT "<H>elp:" 240
  33.   FIND S0 "Y"
  34.   IF FOUN
  35.     EXEC "OFF"
  36.   ENDI
  37.   EXEC "helpsig"
  38. ENDI  
  39. RFLU
  40. TRAN ".M LIBRARY 2 "
  41. TRAN S1
  42. TRAN " KE!"
  43. WAIT "^M"                         ;wait for carriage return echo
  44. MESS "Please wait a moment for database access..."
  45. WAIT "^M" 240                     ;wait for <CR> from blank line
  46. RGET S0 240                          ;get the next line of output
  47. FIND S0 "KERMIT"                     ;prompt means filename was valid
  48. IF FOUN
  49.   WAIT "<N>ext:"                  ;wait for download prompt
  50.   TRAN "!"
  51.   WAIT "computer." 240            ;wait for Source Kermit to start
  52.   GETF KERM
  53.   WAIT "inue: " 240               ;wait for 'continue:' prompt
  54.   MESS "^M^JPlease wait a moment.  DON'T press the RETURN key."
  55. ELSE
  56.   PAUSE 2                            ;wait for the complete prompt
  57.   ALARM 1
  58.   MESS "^M^JThe file was not found.  Proceeding to next filename."
  59. ENDIF                                ;all done
  60. RETURN                               ;go back where you came from
  61.  
  62.